home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / rosa3 / src / spload.s < prev    next >
Text File  |  1997-12-14  |  2KB  |  63 lines
  1. .include    doscall.mac
  2. .include    iocscall.mac
  3.  
  4. *    òΓæ½üFé⌐é╚éΦüAÉ╠é╔ì∞ɼé╡é╜âQü[âÇé⌐éτô]é¬é╡é╜Åêù¥é╚é╠é┼
  5. *    û│æ╩é╚Äûé≡üAÉÅò¬éΓé┴é─éóé▄é╖üB
  6.  
  7. *    âRâüâôâgé≡â}âüé╔ôⁿéΩé─éΘé╠é═üAôûÄ₧âAâZâôâuâëé≡ò╫ï¡
  8. *    é╡é╚é¬éτì∞ɼé╡é╜ê╫é┼é╖üBüiôûÄ₧üAâ\ü[âXé╔æSèpò╢ÄÜé¬ùLéΘé╠é¬üAéóéΓé┼é╡é╜üj
  9.  
  10. *    ì┼ôKë╗é╡éµéñé╞Ävéóé▄é╡é╜é¬üAÅoùêé▄é╣é±é┼é╡é╜üBüiÄ₧è╘òsæ½üj
  11.  
  12.  
  13. IOCS                    equ        $0F
  14.  
  15. .text
  16. .even
  17.  
  18.     move.l        #_CRTMOD,d0                    * ╕▐╫╠¿»╕ ╙░─▐ 256 * 256 
  19.     move.w        #6,d1                        * 256 * 256 Mode
  20.     trap        #IOCS
  21.     move.l        #_B_SUPER,d0                * ╒░╗▐░  -->  ╜░╩▀░  ╙░─▐
  22.     move.l        #0,d1
  23.     movea.l        d1,a1
  24.     trap        #IOCS
  25.     move.l        d0,-(sp)                    * ssp ╬┐▐▌
  26.  
  27.     IOCS        _SP_INIT
  28.  
  29. sp_load:
  30.     tst            (Set_Counter)                * ╜╠▀╫▓─ ╔ ╛»─ ╣▌╜│ ╔ 0 ╣▌ ┴¬»╕
  31.     beq            pl_load                        * 0 ╔ ─╖ ╞ ╩ pl_load ═ ╠▐╫▌┴
  32. sp_load_main:
  33.     lea            Sprite_Data_Area,a1            * A1 ┌╝▐╜└ = ╜╠▀╫▓─ ├▐░└ ▒─▐┌╜
  34.     lea            Set_Pattern_No,a2            * A2 ┌╝▐╜└ = ╛»─ ├▐░└ ▒─▐┌╜
  35. sp_load_loop_1:
  36.     movea.l        #$EB8000,a0                    * A0 ┌╝▐╜└ = PCG ┤╪▒ ▒─▐┌╜
  37.     move        (a2)+,d0                    * D0 ┌╝▐╜└ = ╛»─ ╢╝«
  38.     mulu        #128,d0                        * D0 = D0 * 128
  39.     add.l        d0,a0                        * A0 = A0 + D1 ( PCG ╢╕╔│ ▒─▐┌╜ )
  40.     move.w        #64,d0                        * D0 ┌╝▐╜└ = ├▐░└ ╛»─ ╣▌╜│
  41. *    ext.w        d0                            * D0 ┌╝▐╜└ ª ╠║▐│ ╢╕┴«│üiüHüj
  42. sp_load_loop_2:
  43.     move.w        (a1)+,(a0)+                    * ├▐░└ ╢╕╔│ ( ▒─▐┌╜ ╩  ╬▀╜─ ▓▌╕╪╥▌─ )
  44.     sub            #1,d0
  45.     bne            sp_load_loop_2                * D0 ┌╝▐╜└ ╔ ╢▓╜│ ╠▐▌ sp_load_loop_2 ª ┘░╠▀
  46.     sub            #1,(Set_Counter)
  47.     bne            sp_load_loop_1                * Set_Counter ╔ ╢▓╜│ ╠▐▌ sp_load_loop_1 ª ┘░╠▀
  48. pl_load:
  49.     movea.l        #$E82200,a0                    * A0 ┌╝▐╜└ = ╩▀┌»─ ▒─▐┌╜
  50.     lea            Palet_Area,a1                * A1 ┌╝▐╜└ = ╩▀┌»─ ├▐░└ ╢╕╔│ ▒─▐┌╜
  51.     move.w        #256,d0
  52. pl_load_loop:
  53.     move        (a1)+,(a0)+                    * ╩▀┌»─ ╢╫░ ║░─▐ ├▌┐│
  54.     sub            #1,d0
  55.     bne            pl_load_loop
  56.     move.l        #_B_SUPER,d0                * ╜░╩▀░  ░░>  ╒░╗▐░ ╙░─▐
  57.     move.l        (sp)+,d1
  58.     movea.l        d1,a1
  59.     trap        #IOCS
  60.     dc.w        _EXIT
  61.  
  62. .include rosa.sp
  63.